--
-- $Id: xpa-lists.ads,v 1.4 2005-06-14 15:48:57 bacon Exp $
--

with Ada.Finalization;

generic
	type Datum_Type is private;
--	with function "=" (left, right: Datum_Type) return Boolean is <>;

package Xpa.Lists is

	type List_Base is abstract tagged private;

private
	type Datum_Access is access all datum_type;
	type List_Base is abstract new Ada.Finalization.Controlled with null record;

end Xpa.Lists;

